home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibtscr4.arc / AIS.SCR next >
Encoding:
Text File  |  1986-01-08  |  512 b   |  25 lines
  1. PARAM TE=2
  2. PARAM MO=17
  3. CLEAR   
  4. MESSAGE "***** DIALING AIS FIDO *****"
  5. DIAL "  "
  6. delay 50
  7. CLEAR
  8. IF NOT CONNECTED
  9.    MESSAGE              "***** RE-DIALING AIS FIDO *****"
  10.    HANGUP
  11.    REDIAL
  12. ENDIF
  13. SText "|~|"
  14. Waitstring "Your FIRST name:"
  15. STEXT "    |"          
  16. WAITSTRING " name:"
  17. STEXT "     |"        
  18. WAITSTRING "right? (y,n)"   
  19. STEXT "y|"              
  20. WAITSTRING "Password:"      
  21. STEXT "   |"
  22. IF CONNECTED
  23.    EXIT
  24. ENDIF
  25.